﻿Namespace Personas
    Public Class Persona
        Private _nombre As String
        Public Property Nombre() As String
            Get
                Return _nombre
            End Get
            Set(ByVal value As String)
                _nombre = value
            End Set
        End Property

        Private _apellido As String
        Public Property Apellido() As String
            Get
                Return _apellido
            End Get
            Set(ByVal value As String)
                _apellido = value
            End Set
        End Property

        Private _direccion As Direccion
        Public Property Direccion() As Direccion
            Get
                Return _direccion
            End Get
            Set(ByVal value As Direccion)
                _direccion = value
            End Set
        End Property

        Public Overrides Function ToString() As String
            Return Apellido & ", " & Nombre
        End Function

        Public Function DecirAlgo() As String
            Return "Hola a todos, soy " & Me.Nombre & " " & Me.Apellido
        End Function
    End Class
End Namespace